Option Explicit
'ۭqҲ
Private Sub UserForm_Initialize()
    With SpinButton1
        'wLիsݩ
        .Max = 50
        .Min = 1
        .SmallChange = 1
        .Value = 25
    End With
    TextBox1.TextAlign = fmTextAlignRight
End Sub

Private Sub SpinButton1_Change()
    TextBox1.Value = SpinButton1.Value
End Sub
